home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0074_Bitmap Display.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  1KB  |  61 lines
  1. {
  2. > Does anyone know how to view BIT map picture, thanx......
  3. }
  4.  
  5. Type
  6.   PBitmapCoreHeader = ^TBitmapCoreHeader;
  7.   TBitmapCoreHeader = record
  8.     bcSize: Longint;              { used to get to color table }
  9.     bcWidth: Word;
  10.     bcHeight: Word;
  11.     bcPlanes: Word;
  12.     bcBitCount: Word;
  13.   end;
  14.  
  15.   PBitmapInfoHeader = ^TBitmapInfoHeader;
  16.   TBitmapInfoHeader = record
  17.     biSize: Longint;
  18.     biWidth: Longint;
  19.     biHeight: Longint;
  20.     biPlanes: Word;
  21.     biBitCount: Word;
  22.     biCompression: Longint;
  23.     biSizeImage: Longint;
  24.     biXPelsPerMeter: Longint;
  25.     biYPelsPerMeter: Longint;
  26.     biClrUsed: Longint;
  27.     biClrImportant: Longint;
  28.   end;
  29.  
  30. { Constants for the biCompression field }
  31.  
  32. const
  33.   bi_RGB  = 0;
  34.   bi_RLE8 = 1;
  35.   bi_RLE4 = 2;
  36.  
  37. type
  38.   PBitmapInfo = ^TBitmapInfo;
  39.   TBitmapInfo = record
  40.     bmiHeader: TBitmapInfoHeader;
  41.     bmiColors: array[0..0] of TRGBQuad;
  42.   end;
  43.  
  44. type
  45.   PBitmapCoreInfo = ^TBitmapCoreInfo;
  46.   TBitmapCoreInfo = record
  47.     bmciHeader: TBitmapCoreHeader;
  48.     bmciColors: array[0..0] of TRGBTriple;
  49.   end;
  50.  
  51. type
  52.   PBitmapFileHeader = ^TBitmapFileHeader;
  53.   TBitmapFileHeader = record
  54.     bfType: Word;
  55.     bfSize: Longint;
  56.     bfReserved1: Word;
  57.     bfReserved2: Word;
  58.     bfOffBits: Longint;
  59.   end;
  60.  
  61.